home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / bullmod.zip / BULL-MOD.TXT
Text File  |  1989-07-31  |  4KB  |  105 lines
  1. '!!!!!!!!!! BACK UP your OLD version FIRST !!!!!!!
  2. '        (just incase Murrpy Striks)   
  3. '
  4. 'This mod will force the Bulletins on NEW users after they register
  5. 'the mods are for Maple Street version of RBBS 17D but can be used
  6. 'for other versions with little modification...
  7. ' ALL mods are in RBBS-PC.BAS and you must
  8. ' answer  NO to CONFIG if Bullits are Optional
  9. '
  10. ' Pete Eibl <Maple Street BBS 414-771-2805 1200-9600 HST>
  11. '
  12. 'ps just use the Cut and Paste feature in your Editor to replace this code
  13. 855 CALL ASKMORE ("",TRUE,TRUE,X,TRUE)
  14. '*******************************************************************
  15.     IF NOT BULLETINS.OPTIONAL THEN _
  16.        GOTO 860                     'Pe 07/31/89 code from RBBS 15a
  17. '********************************************************************
  18.     IF BULLETINS.OPTIONAL AND NOT NEW.USER THEN _
  19.        GOTO 856
  20.     STOP.INTERRUPTS = TRUE
  21.     NEW.USER = FALSE
  22.     GOSUB 9700
  23.     STOP.INTERRUPTS = FALSE
  24.     GOTO 900
  25. 856  IF NOT CHECK.BULLETIN.LOGON THEN _
  26.        ANS.INDEX = 0 : _
  27.        GOSUB 9760 : _
  28.        GOTO 900
  29.     CALL SKIPLINE (1)
  30.     A$ = "Skip the  bulletins (Y,[N])"
  31.     GOSUB 12999
  32.     IF YES THEN _
  33.        GOTO 900
  34. 860 'NEW.USER = FALSE    'Pe 07/31/89
  35.     GOSUB 9700
  36.     NEW.USER = FALSE     'Pe 07/31/89
  37. '
  38. '
  39. '       Skip to Next line # .........
  40. '
  41. '
  42. 9700 RETURN.ON$ = "N"
  43.      A1$ = BULLETIN.MENU$
  44. '*********************************** Pe 07/31/89
  45. 9701 IF NEW.USER THEN _
  46.       CALL SUBMENU ("Read what bulletin(s), L)ist, N)ew ([ENTER] = NEW)",_
  47.                    A1$, BULLETIN.PREFIX$,"",RETURN.ON$,_
  48.                    USER.GRAPHIC.DEFAULT$,FALSE,FALSE,FALSE,"") _
  49. ELSE _
  50.     CALL SUBMENU ("Read what bulletin(s), L)ist, N)ew ([ENTER] = None)",_
  51.                    A1$, BULLETIN.PREFIX$,"",RETURN.ON$,_
  52.                    USER.GRAPHIC.DEFAULT$,FALSE,FALSE,FALSE,"")
  53. IF NEW.USER and Q = 0 THEN _
  54.    Z$ = "N" _
  55. ELSE _
  56.      IF NOT NEW.USER AND Q = 0 THEN _
  57.         RETURN
  58.      IF SUBROUTINE.PARAMETER = -1 THEN _
  59.         RETURN 10595
  60.      IF Z$ = "N" THEN _
  61.         GOTO 9760
  62.      STOP.INTERRUPTS = FALSE
  63.      CALL BUFFILE (FILE.NAME$,ANS.INDEX)
  64.      CALL UPDTCALR ("Read bulletin " + FILE.NAME$,1)
  65. '****************************************************** Pe 07/31/89
  66. 9703 ANS.INDEX = ANS.INDEX + 1
  67.      IF ANS.INDEX > LAST.INDEX THEN _
  68.         ANS.INDEX = 0
  69.      GOTO 9701
  70. '
  71. ' *  CHECK AND REVIEW NEW BULLETINS SINCE LAST LOGON
  72. '
  73. 9750 CALL QTPUT ("Checking for NEW bulletins...Stand by....",1)    'BK011301
  74.      CALL CHKNEWBUL (BOARD.CHECK.DATE$,NUM.NEW.BULLETS,NEW.BULLETS$)
  75.      CALL SKIPLINE (1)
  76.      A$ = STR$(NUM.NEW.BULLETS) + _
  77.           " NEW BULLETIN(S) since last call" + _
  78.           NEW.BULLETS$
  79.      GOSUB 12979
  80.      RETURN
  81. 9760 ' ****  [entry when want review plus chance to read] *********
  82.      GOSUB 9750
  83. '*****************************************************
  84. '
  85.    IF NEW.USER  THEN _
  86.       NEW.USER = FALSE : _
  87.         LAST.INDEX = Q : _
  88.            ANS.INDEX = 2: _
  89.            GOTO 9700 _
  90. ELSE _
  91.      IF NUM.NEW.BULLETS > 0 THEN _
  92.         LAST.INDEX = Q : _
  93.         A$ = "READ ALL new bulletins ([Y],N)" : _
  94.         GOSUB 12999 : _
  95.         IF NOT NO THEN _
  96.            ANS.INDEX = 2: _
  97.            GOTO 9700
  98.      IF ANS.INDEX < 1 THEN _
  99.         RETURN _
  100.      ELSE ANS.INDEX = 0 : _
  101.           GOTO 9701
  102. '*********************************************
  103. ' *  W - COMMAND FROM MAIN MENU (WHO'S ON THE OTHER NODES)
  104. '
  105. 9800 CALL WHOSON (NODES.IN.SYSTEM)